use TestHelper;
sub checkIs{
    my($status, $name) = (shift, shift);
    print "Probando ActionStatus->is\n";
    if(!$status->is($name)){
	print "--->ERROR: ".$status->name." NO ES ".$name."\n";
    }else{
	print "    ".$status->name." === ".$name." OK\n";
    }
}

sub checkName{
    my($status, $name) = (shift, shift);
    print "Probando Nombre: $name\n";
    if($status->name ne $name){
	print "--->ERROR: ".$status->name." != ".$name."\n";
    }else{
	print "    Nombre OK\n";
    }
}

1;




















